﻿Imports BUS
Imports DAO
Imports DTO
Public Class CDiemMonHocBUS

    Public Sub ChuyensangDiemMonHoc(ByVal _CTldto As CChiTietLopDTO)
        Dim _ds As New List(Of CDiemMonHocDTO)
        _ds = LayThongTinDiemMonHoc(_CTldto)
        CChiTietDiemMonHocBUS.ThemChiTietDiemMonHoc(_ds, _CTldto)
    End Sub

    Public Function LayThongTinDiemMonHoc(ByVal _CTldto As CChiTietLopDTO) As List(Of CDiemMonHocDTO)
        Dim _dao As New CDiemMonHocDAO()
        Dim _ds As New List(Of CDiemMonHocDTO)
        _ds = _dao.LayThongTinDiemMonHoc(_CTldto)
        Return _ds
    End Function
End Class
